0 IFPEEK(49153)=149THENPRINT"[147]":GOTO7:    REM:SEE LINE 5000
1 POKE53280,0:POKE53281,0:PRINTCHR$(14):PRINT"[147]"
2 PRINT"     [158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
3 PRINT"     [171] [195][207][206][214][197][210][212] [199]EO[212][197][216][212] [212][207][160][211][197][209].[198][201][204][197] [179]"
4 PRINT"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":FORN=1TO11:PRINT:NEXT
6 IFA=0THENA=1:LOAD"CONVERSION CODE",8,1
7 POKE52,96:POKE56,96:F$="TEMP01,S":Y=52992:FORX=1TOLEN(F$):V=ASC(MID$(F$,X,1))
8 POKEY,V:Y=Y+1:NEXT:GOTO190
9 PRINT"[206]AME FOR EVENTUAL CONVERTED FILE":PRINT"(MAX.10 CHARACTERS)":INPUTC$
10 IFLEN(C$)>10THENC$=LEFT$(C$,10)
11 G$=C$:C$=C$+",S,W"
12 Y=53008:FORX=1TOLEN(C$):V=ASC(MID$(C$,X,1)):POKEY,V:Y=Y+1:NEXT:POKE2,LEN(C$)
13 PRINT"[196]O YOU WISH TO USE DRIVE 9 WHEN
14 [133]"WRITING THE CONVERTED FILE (Y/N)";S$
15 [139]S$[178]"Y"[167]DV[178]9:[151]49533,9
16 [139]S$[179][177]"Y"[167]DV[178]8:[151]49533,8
17 [139]DV[178]9[167][153]"(null)LEASE PLACE A DISK IN DRIVE 9 AND
18 IFDV=9THENPRINT"TYPE ANY KEY TO CONTINUE":POKE198,0:WAIT198,1
20 GOTO305
190 PRINT"[147][208]LACE SOURCE ([199][197][207][211]) DISK IN DRIVE 8"
200 PRINT"[212]YPE RETURN[146] WHEN READY..."
210 GETA$:IFA$<>CHR$(13)THENGOSUB970:GOTO210
220 POKE53280,0
292 GOSUB680
294 FORX=56328TO56331:POKEX,0:NEXT
300 POKE56328,1
301 F$="":FORF=1TOLEN(N$)
302 IFASC(MID$(N$,F,1))>192THENH$=CHR$(ASC(MID$(N$,F,1))-96)
303 IFASC(MID$(N$,F,1))<192THENH$=CHR$(ASC(MID$(N$,F,1)))
304 F$=F$+H$:NEXT:PRINT"[147]":GOTO9
305 IFF$=G$ANDDV=8THENPRINT"[147][196]IFFERENT NAME REQUIRED FOR
306 [139]F$[178]G$[175]DV[178]8[167][153]"CONVERTED FILE. (null)RY AGAIN!":[153]:[137]9
308 F$[178]F$[170]",U,R"
310 [159]15,8,15:[159]8,8,0,F$:[132]15,EN,EB$,ET,ES
320 [139]EN[179][177]0[167][160]8:[160]15:[153]"LOAD";[166]20[171][195](EB$)[173]2)EB$:N$[178]"":[137]290
322 [153]"LOAD"[166]16[171][195](F$)[173]2)"LOADING "[170]F$
324 S$[178]"STR$(null)RIGHT$(null)VALCLOSE(null)VAL(null)(null)CLOSEPEEK(null)(null)(null) - STR$(null)CLOSE(null)(null)(null)CLOSESTR$RIGHT$(null)(null)(null)(null)PEEK
325 PRINT""SPC(20-LEN(S$)/2)S$
329 D=30:DIMR(D,1):FORT=1TOD
330 GET#8,R$:IFR$=""THENTT=T:T=D:CLOSE8:CLOSE15:GOTO336
331 R(T,0)=ASC(R$)
332 GET#8,R$:IFR$=""THENR$=CHR$(0)
333 R(T,1)=ASC(R$)
334 NEXT
336 REM:
340 S$="WRITING NEW PAGES":PRINT""SPC(20-LEN(S$)/2)S$:T2=1
370 FORF=1TOTT-1:T1$="TEMP":T2$=RIGHT$(STR$(T2),LEN(STR$(T2))-1)
371 IFLEN(T2$)=1THENT2$="0"+T2$
372 T3$=T1$+T2$
373 OPEN4,8,4,T3$+",S,W":CLOSE4:T2=T2+1:IFT2=TTTHEN376
374 NEXT
376 S$="GIVING THEM DIRECTIONS":PRINT""SPC(20-LEN(S$)/2)S$
377 OPEN15,8,15,"I0":OPEN2,8,2,"#":T=18:S=1:N=0:T2=1
378 FORF=1TOTT-1:T1$="TEMP":T2$=RIGHT$(STR$(T2),LEN(STR$(T2))-1)
379 IFLEN(T2$)=1THENT2$="0"+T2$
380 T3$=T1$+T2$
382 PRINT#15,"U1:2 0"+STR$(T)+STR$(S)
384 GET#2,A$:TN=ASC(A$+CHR$(0)):GET#2,A$:SN=ASC(A$+CHR$(0))
385 IFN>7THENN=0:T=TN:S=SN:GOTO382
386 PRINT#15,"B-P:2,"+STR$(N*32+2)
388 GET#2,A$:FT=ASC(A$+CHR$(0)):IFFT<>129THENN=N+1:GOTO385
390 PRINT#15,"B-P:2,"+STR$(N*32+5):D$=""
392 GET#2,A$:IFA$<>CHR$(160)ANDLEN(D$)<16THEND$=D$+A$:GOTO392
393 IFD$<>T3$THENN=N+1:GOTO385
394 IFD$=T3$THENPRINT#15,"B-P:2,"+STR$(N*32+3):PRINT#2,CHR$(R(F,0));
395 PRINT#15,"U2";2;0;T;S
396 IFD$=T3$THENPRINT#15,"B-P:2,"+STR$(N*32+4):PRINT#2,CHR$(R(F,1));
397 PRINT#15,"U2";2;0;T;S
398 N=N+1:T2=T2+1:IFT2=TTTHENCLOSE2:CLOSE15:GOTO403
402 NEXT
403 PRINT:S$="[212]RANSLATING [199][197][207][211]":PRINTSPC(20-LEN(S$)/2)S$:PRINT
405 POKE38,8:SYS49152
406 GOSUB477
410 H=PEEK(56331):Y=H:GOSUB450:H=P
411 M=PEEK(56330):Y=M:GOSUB450:M=P
412 S=PEEK(56329):Y=S:GOSUB450:S=P
413 T=PEEK(56328):Y=T:GOSUB450:T=P
420 PRINT"[195]ONVERSION COMPLETED IN"
430 PRINTH" HOURS"
431 PRINTM" MINUTES
432 Z$[178][201]([196](T),[195]([196](T))[171]1)
433 S$[178][196](S)[170]"."[170]Z$:[153]S$" SECONDS"
434 [153]"(null)OUR CHR$VAL(null)(null) SOURCE DISK WILL REQUIRE
435 PRINT"VALIDATION ONCE YOU RETURN TO THE
436 [153]"CHR$VAL(null)(null) ENVIRONMENT."
440 [128]:[143] DMH 1994
450 P[178][181](Y[173]16)[172]10[170](Y[175]15):[142]
477 [159]15,8,15,"I0":[159]2,8,2,"#":T[178]18:S[178]1:N[178]0:T2[178]1
478 [129]F[178]1[164]TT[171]1:T1$[178]"TEMP":T2$[178][201]([196](T2),[195]([196](T2))[171]1)
479 [139][195](T2$)[178]1[167]T2$[178]"0"[170]T2$
480 T3$[178]T1$[170]T2$
482 [152]15,"U1:2 0"[170][196](T)[170][196](S)
484 [161]#2,A$:TN[178][198](A$[170][199](0)):[161]#2,A$:SN[178][198](A$[170][199](0))
485 [139]N[177]7[167]N[178]0:T[178]TN:S[178]SN:[137]482
486 [152]15,"B-P:2,"[170][196](N[172]32[170]2)
488 [161]#2,A$:FT[178][198](A$[170][199](0)):[139]FT[179][177]129[167]N[178]N[170]1:[137]485
490 [152]15,"B-P:2,"[170][196](N[172]32[170]5):D$[178]""
492 [161]#2,A$:[139]A$[179][177][199](160)[175][195](D$)[179]16[167]D$[178]D$[170]A$:[137]492
493 [139]D$[179][177]T3$[167]N[178]N[170]1:[137]485
494 [139]D$[178]T3$[167][152]15,"B-P:2,"[170][196](N[172]32[170]2):[152]2,[199](0);
495 [152]15,"U2";2;0;T;S
498 N[178]N[170]1:T2[178]T2[170]1:[139]T2[178]TT[167][160]2:[160]15:[142]
499 [130]
680 [159]15,8,15,"I0":[159]2,8,2,"#":X[178]0:M[178]0:T[178]18:S[178]1:N[178]0
690 [153]"LOAD(null)HE (null)(null)(null) FILES ON THIS DISK ARE:"
700 [152]15,"U1:2 0"[170][196](T)[170][196](S)
710 [161]#2,A$:TN[178][198](A$[170][199](0)):[161]#2,A$:SN[178][198](A$[170][199](0))
720 [152]15,"B-P:2,"[170][196](N[172]32[170]2)
730 [161]#2,A$:FT[178][198](A$[170][199](0)):[139]FT[179][177]131[175]FT[179][177]195[167]N[178]N[170]1:[137]810
770 [152]15,"B-P:2,"[170][196](N[172]32[170]5):D$[178]""
780 [161]#2,A$:[139]A$[179][177][199](160)[175][195](D$)[179]16[167]D$[178]D$[170]A$:[137]780
790 X[178]X[170]1:M[178]M[170]1:[139]M[178]16[167]M[178]0:[137]840
800 [153]"   "[170][199](34)[170]D$[170][199](34):N[178]N[170]1
810 [139]N[179]8[167]720
820 N[178]0:T[178]TN:S[178]SN:[139]T[179][177]0[167]700
830 [139]T[178]0[167]860
840 [153]"        TYPE RETURNWAIT TO SEE MORE"
850 [153]"    TYPE _ AND THEN RETURNWAIT TO ABORT"
860 [139]X[178]0[167][153]"        NONE":[137]930
870 [153]"        PLACE CURSOR NEXT TO NAME"
880 [153]"   AND TYPE RETURNWAIT TO LOAD":[133]N$
890 [139]N$[178]"_"[167]N$[178]"":[137]920
900 [139]N$[179][177]""[167][160]2:[160]15:[142]
910 [139]T[179][177]0[167]690
920 [153]"LOAD";
930 [160]2:[160]15:[153]"    PLACE ANOTHER CHR$VAL(null)(null) DISK IN DRIVE"
940 [153]"       TYPE RETURNWAIT WHEN READY OR"
941 [153]"    TYPE QWAIT TO QUIT PROGRAM"
950 [161]A$:[139]A$[179][177][199](13)[175]A$[179][177]"Q"[167][141]970:[137]950
955 [139]A$[178]"Q"[167][128]
960 [151]53280,0:[137]680
970 A[178]A[170]1:[139]A[177]10[167][151]53280,2
980 [139]A[177]20[167][151]53280,0:A[178]0
990 [142]
2000 [159]15,9,15:[132]15,A,B$,C,D:[153]A,B$,C,D:[160]15
5000 [143]:PROGRAMMED BY DOREEN HORNE FOR
5001 [143]:THE PUBLIC DOMAIN.
5002 [143]:BRISBANE AUSTRALIA 1994